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-TITLE SYSMTACTESS = Routine to check magnetic tape accessibilit 
~IDENT ‘V 4.000" . : : 


: 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


we * 
a ca 
® tt 
® ® 
*® * 
‘ OFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
2 N ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ® 
. ION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
. THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
* PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
:® TRANSFERRED. ’ 
ca ® 
* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
* CORPORATION. * 
® ® 
® ” 
® ® 
® © 
* * 
® ® 


DIGITAL ASSUMES NO RESPONS et ee FOR THE USE OR RELIABILITY OF ITS 


I 
SOFTWARE ON EQUIPMENT WHICH NOT SUPPLIED BY DIGITAL. 
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FACILITY: VMS Executive, System services. 
ABSTRACT: 
VMS supplied accessibility installation routine. This routine is a 
model on which installations’ should base their accessibility 
routine, It is also the system default installation routine. 
ENVIRONMENT: 
Kernel Mode 
AUTHOR: 
Meg Dumont 
CREATION DATE: 
20-February-1984 
MODIFIED BY: 


v03-004 mmMD0316 Meg Dumont, 22-Jul-1984 19:21 
Fix to V4 checks to restore RO after the CMPC operation. 


v03-003 MMD0266 Meg Dumont, 22-Mar-1984 16:30 
Change LABEL to LBLNAM and a couple other misc fixes 
to V4 support. 
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V03-002 mmMD0257 Meg Dumont, 7-Mar-1984 18:38 
Fix CASE statements. 


v03-001 mMmMD0253 


Meg Dumont, 28-Feb-1984 16:57 
Delete temporary definitions. 
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Declarat 4 - (dy 


Yee eR RCJSY SRTACC MAR; 1 


66 SBTTL Declarations 
SMTADEF 
6 SVLIDEF :; ANSI volume Label definitions 
8 $HDIDEF 3; ANS! header 1 Label defs 
t SSSDEF ; Define status codes 
ug i Equated symbols: 
00000004 0 74 LBLNAM = 4 ; Offset to the label passed either 
0 75 ; a VOL1 or HDR1 depending on the type 
£6 ; passed by address 
00000008 ur vIC = 8 § ies ge YS of user doing operation, 
3 passe va 
0000000c 0000 79 STD_VERSION = 12 : Bttset to decimal equivalent of the 
000 80 3; ANSI std verioan number from VOL1 
000 4 ; label passed by value 
00000010 O60 ¢ ACCESS_CHAR = 16 3; Offset to the access char specified 
000 8 ; by user valid label is being output 
000 84 : pessed by by value 
00000014 0000 85 ACCESS_SPEC = 20 ; Offset to field which indicates if the 
4 g6 3 ~- specified a access char passed 
$ va 
00000018 0000 88 TYPE = 24 ; Oftset to type of operation. See 
0000 89 3 SHTADEF for types, passed by value 
0000 90 
0000 91 ; Local symbols 
0000 3 
000000 ° 0000 9 BLANK = *X<20> ; Hex equivalent of a blank 
00000031 444 3¢ ASCII_1 = *X<31> ; Hex equivalent of an ASCII one. 
41 31 31 45 4C 49 46 43 45 44 0000 39 STARID: .ASCII /DECFILE11A/ : VMS specific implementation identifier 


AX/VMS Macro V04-00 Page 4 
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Entry vector EP-1984 
-SBTTL Entry vector 


The following vecters are used by the various pieces of the eystes 
to access the accessibility routine. The vector EXESMTACCESS is 
use 4 the change mode Glseatcner in response to a user calling the 

$$ byatee service. This vector then jumps to the actual dispatch 

WT ACCESS YEG. which in turn will -— to the accessibility 

ndirection is necessary because the 
change mode dispatch vector must be in close proximity to the enenge 
mode dispatcher, which implies that it must be in a read-only psect. 
The actual dispatch vector, EXESMTACCESS_VEC, must be in a writable 
psect so that the contents of the vector may be changed. 


The longword SGNSGL_LOADFLAGS is a bit vector used to indicate which 
jeces of the loadable pieces of the EXEC should be loaded at system 
oot time. If a user specified an accessibility routine is 

present in the system, the bit SGNSV_LOADMTACCESS will be set to 1. 


The vector address the user must specify to load the code is represented 
by the symbol EXESMTACCESS_VEC. 


>> 


See Ge Se Ge Ge Ge Se Ge Se Se Se Se Ge Se Ge Se Se Ge Sete 
oa 


AEXENONPAGED Nonpaged UR access only 
Entry point from change-mode dispat. 
Register save mask (none saved) 


Jump to the dispatch vector 


»PSECT 
EXESMTACCESS:: 
- WORD 


COOOOOCOCOCSOOCOOOOOOooOoO 
SOOOCMNCOCOFr>r Yr rrr rr Yr rrrrrrrr>rrr> 


a#EXESMTACCESS_VEC 
.PSECT $$$500 
EXESMTACCESS_VEC:: 
JMP ~  @#EXESMTACCESS_RTN 


The vector must be nonpaged and URKW 
Quick access entry point 
Vector to default routine 


RoRoRoRoNORORONONON) 2 2 3 a BQO OOD OOO— 
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YSMTACC.MAR; 1 (1) 
7 -SBTTL Main routine 
: ; SMTACCESS 


3; Functional description: 

This routine is called to handle the VOL1 and HDR1 Label accessibility 
fields during magnetic tape label processing. It firsts determines 
the ANSI standard verison of this tape. For version 3 or less tapes the 
routiene will either output a blank or the character specified by the 
user. On input of version 3 or less sepes the routine will check for a 
blank and return the value SS$_FILACCERR if the field is non-blank. 


For version 4 tapes, on output the routine will either output the 
character specified or an ASCII 1 if no character was specified. 
Qn input of version 4 tapes, if the field is blanks then RO is 
set to 0, which means the user has complete pegese to the tape. 
If the field has an ASCII one then SS$_NORMAL is returned and 
which means VMS protection will be checked by the caller. If the 
field contains something else then SS$_FILACCERR is returned and 
VMS protection is checked. This routine does not use the 

returnd SS$_NOVOLACC or SS$_NOFILACC, however the installation is 
free to use them and the caller will know how to deal with them. 


WWAWWAAAANWIWW 
— 


OCO NOUN 


Calling sequence: 
This routine should be called via a CALLS/G to EXESMTACCESS. 
Input: 


LBLNAM(AP) : The ANSI Label to process passed by address. 
On inoyt the Label passed is either the VOL1 
or HDR1 Label read off the magnetic tape. On 
output of labels this field is zero. The 
type of label is determined by the TYPE field. 


UIC CAP) : The volme UIC passed by value. 


STD_VERSION(AP) : The decimal equivalent of the ANSI standard 
yerston gotten from the VOL1 Label, passed 
y value. 


ACCESS_CHAR(AP) : The accessibility character specified by the 
as he passed by value. For output of Labels 
only. 


ACCESS_SPEC(AP) : Determines if the character passed in ACCESS_CHAR 
was specified by user. 
MTASK_CHARVALID = YES 
MTASK_NOCHAR = 
passed by value. For output of labels only. 


SOOOD OD O98 SII SN SNP DAP AAA AAA ITT PEPE EE 
NDA AN SO OD NA UNE WIN OOD NAME WIN 9 OD NAME WIN O OONOU SW" 


TYPE (AP) : Type of accessibility to process passed by value. 
1Pe OMTASK I F t a Voll label 
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SYSMTACCESS 
VOe-005 


OA A2 
50 009C 8F 


35 A2 HS 


: 
i 
38 

0 

38 
006 

0006 
0006 
00000000 
$8 

3C 000 
DO 000 
9A 000 
0008 
0008 
44 

008 

0008 
0008 

91 0008 
14 QO0F 
0011 
0011 
0011 
Bat) 

011 

0011 
0011 

11 

11 

i 

04 1D 
O1E 

1 Bi 
13 3 5 
3C 4 
04 9 
A 

A 

91 & 
13 E 
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SEP- SYS.SRCISYSMTACC.MAR; 1 
: Output: 
: None. 
3 : Routine vatue: 
? ; On Label INPUT the following is returned: 
96: RO = SS$_NORMAL : Check the VMS protection on the pogneste tape. 
2 3 0 : sive, te weer full access. VMS protection is 
3 no checked. 
99 ; SS$_FILACCERR : Check for explicit override then check the 
8 3 VMS protection. 
3 SSS_NOFILACC or SS$_NOVOLACC : The user has no access to the file 
0 : of volume, respectively. 
6 : When the Label is OUTPUT the accessibility character to write is 
3 3 returned in RO. 
-PSECT YSEXEPAGED ; This code is pageable 
EXESMTACCESS RTN:: 3; SMTACCESS code 
MOVZQL #SS$_NORMAL,RO 3; Assume success. 
MOVL LBLNAM(AP) ,R2 ; Get address of label to process 
MOVZBL TYPECAP),R4 : Get type of request 


ASSUME MTASK_INVOL1 EQ 0 
ASSUME MTASK"INHDR1 EQ 1 
ASSUME MTASK-OUTVOL1 EQ 
ASSUME MTASK-OUTHDR1 EQ 


CMPB STD_VERSION(AP) , 43 ; If GTR then process with 4 rules 
BGTR ACCESS_V4 


: Process accessibility with the rules used for ANSI standard version 3 or less 
3 magnetic tapes. 


ACCESS_PREV4: 
CASE 


R1,<- 
PREV4_INVOL1,- 
PREV4—INHDR1,- 
PREV4-OUTVOL{ ,- 
PREV4_OUTHORI ,~ 


PWN OOD NAMES WIN OOD AUN EWIN OOO NOAUE WN O OD NOAOUE WN OOO NOULS W000 


RET 
PREV4_INVOL1: 
sree #P AMK VL 158 VOLACCESS (R) ; If blank then return check VMS pro 
MOVZWL #SS$_FILACCERR,RO ; Else force override of field 
10$: RET 
PREV4_INHDR1: 
coer SOL ANK .NOTSB_FILACCESS (RZ) : If blank then return check VMS pro 


SYSMTACCESS 
v04-000 


50 009C 8F 


50 


— 
+o 


Nmor>,r 
SOWOO 


50 


uring te check magnetic tape a Vg See 138t Oe:Qa:7 ya 


~SEP=1 
peyzu. #SS$_FILACCERR,RO 


— 
Oo 
wn 


ASSUME MTASK_CHARVALID EQ 1 
ASSUME MTASK_NOCHAR EQ 


-OUTVOL1: 
TOUTHOR1: 
MOVZBL access CHAR(AP) ,RO 
TSTB ACCESS_SPEC (AP) 


BNEQ 10$ 
poyeat. #BLANK ,RO 


PUPP 


ONAL WI" OOOnou 
vv 
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mm 
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: Else force override of field 


; Assume char valid 
; If NEQ then character passed 


; Else return a blank 
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4 66 V4" INVOL1,- 
4 V4" INHDR1,- 
04 64 v4"-OUTVOL{ ,- 
2 2? V4_OUTHDR1,- 
04 of e RET 
080 $3 V4_INVOL1: 
OA A2 63 33 0084 oY coe + K,VL1$B_VOLACCESS(R2) ; If blank give user full access 
0 04 5 7 CLRL RO 
04 0038 73 RET 
OA A2 31 91 0059 75 10$: CMPB #ASCII_1,VL1$B_VOLACCESS(R2) ; If NEQ force the user to 
0B 1 05D 76 BNEQ 20$ 3; override the field 
18 A2 00000000" EF be ¢ Fa or ore Ag yt al VLIST_SYSCODE(R2) 3; If EQL then ok 
50 009C 8F 3C 006A 79 208: MOVZWL #SS$_FILACCERR,RO ; Else force override 
ee ay eee 
0070 8 3 The CMPC a Gostreys RO so we must set the value before we 
B85 : Mieke the 
50 01 3¢ a970 Bs a #SS$_NORMAL ,RO 
04 bose 58S ~ 
0074 88 V4_INHDR1: 
35 A2 20 91 0074 89 CMPB #BLANK ,HD1$B_F ILACCESS(R2) : If blank give user full access 
03 12 0078 90 BNEQ 10$ 
50 D4& OO7A 91 CLRL RO 
04 tas 38 RET 
35 A2 31 91 O07 94 10$: CMPB #ASCII_1,HD1$B_F ILACCESS(R2) 3; If NEQ force the user to 
B 12 0081 95 BNEQ 20$ 3; override the field 
3C A2 00000000" EF OA * it 39 ore Aig a aa cmt 3; If EQL then ok 
50 009C if 3C dose 98 20S: MOVZWL #SS$_FILACCERR,RO 3; Else force override 
04 009 99 RET 
0094 304 
it 8 V4_OUTVOL1: 
94 V4-OUTHDR1: 
94 4 MOVZBL ACCESS_CHAR(AP) ,RO ; Assume char valid 
O36 5 Ay ARLES SPEC APD ; If NEQ then character passed 
9D 0? MOVZBL #ASCII_1,R0 ; Else return default character 
? 38 10$: RET 
80 10 .END 
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Symbol table ° . Toes 7 §g:98:)2 LEYS SRCTSYSRTACC MARS 1 . (2) 
ACCESS_CHAR = 19 
ACCESS_PREV4 11 R 05 
ACCESS_SPEC = 3 
ACCESS V4 43 R 05 
ASCII_T = 8 1 
BLANK = 
EXESMTACCESS 0 RG 03 
EXESMTACCESS_RIN 0 RG 05 

XESMTACCESS VEC 000 RG 04 
HD1$B_FILACCESS = 
HD1$T_SYSCODE = 000 C 
LBLNARM = 4 
MTASK_CHARVALID = 1 
MTASK_INHDR1 = $ 1 
MTASK_INVOL1 = 00000000 

_NOCHAR = 000000 

MTASK_OUTHDR1 = S44 

TASK_OUTVOL1 = 44 0 
PREV4_INHDR1 0000002A R 05 
PREV4_INVOL1 QOOOOOIE R 05 

REV4_OUTHDR1 4 R 05 
PREV4_ OUTVOL1 0000036 R 05 
SS$_FILACCERR = 0000009C¢ 
SS$_NORMAL = 00000001 
STARID 0000000 R 01 
STD_VERSION = 0000000C 
TYPE = 00000018 
VIC = 0000 54 
V4_INHDR1 00000074 R 05 
V4_INVOL1 00000050 R 05 

NORMAL 444 4d hg R 05 
V4_OUTHDR1 0000094 R 05 
V4_OUTVOL1 9444544 z 05 
VLT$B_VOLACCESS = 0000000A 
VL1$T_SYSCODE = 00090018 

$ewemooweecececon + 
; Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
- ABS. 00000000 <¢ 0.) 00 ¢ OO.) NOPIC USR CON ABS _ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
- BLANK . 898 A ( 1}. 4 . Tee PIC USR CON REL LCL NOSHR EXE R&D WRT NOVEC BYTE 
SABSS$ 8 ( -) ¢ ( §°} NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
AG XERONPAGED 00000 { 8.) ( 3.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
$$$500 00000006 ( 6.) 04 ¢( 4.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
YSEXEPAGED QOOO00A1 (¢ 161.) O05 ¢ 5.) NOPIC USR CON REL LCL NOSHR EXE’ RD WRT NOVEC BYTE 
power mewn nen + 
; Performance indicators H 

Phase Page faults CPU Time Elapsed Time 


Command processing 186 80:00:00:58 90:00:04-36 


v04-00 
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VAX=11 Macro Run Statistics SEP- SYS.SRC 


Pass 1 225 00:04. § 0:00:1 “4 
Symbol table sort 9 :00: 9. 7:00:01. 

Pass 7 :00:01.08 :00:02.34 
Symbol table output :00:00.04 :00:00.06 
Psect synopsis output :00:00.04 :00:00.04 
Cross-reference output -00 0:00:00.00 
Assembler run totals 44 34 0:00:27.81 


The working set Limit was 1350 pages. 

25956 bytes_(51 pages) of virtual memory were used to buffer she intermediate sgde. 

There were 30 pages of symbol table space allocated to hold 473 non-local and 12 local symbols. 
0 source Lines were read in Pass 1, producing 18 object records in Pass 2. 

13 pages of virtual memory were used to define 12 macius. 


Se ce me ao ae mecee we 


! Macro Library statistics ! 


poemwmamanr omnes ecaemaas eee neest 


Macro Library name Macros defined 
“$52 2S0UAcE: SYS.OBJJLIB.MLB;1 3 
$255$DUA28: CSYSLIBISTARLET.MLB; 2 6 
TOTALS (all cibraries) 9 


538 GETS were required to define 9 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:SYSMTACC/OBJ=OBJ$:SYSMTACC MSRC$:SYSMTACC/UPDATE=(ENHS$:SYSMTACC) +EXECMLS$/LIB 
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